TOL Z80 CF/M DISK ASSEMBLER VERSION 2.21 FAGE 1 
DISK CONTROLLER MODULE (OCM2) 
TITLE FAGE 


SHHHHKHKRHKHHKKKRHHHHKHHRHHHHHHHKKHKKHHHRHRKRHRHKRRKREHHKHEHHEREHHHRHEERHHHHE 
5 +} 
3 FROGRAM It: DISk CONTROLLER MODULE + 
5 | % 
5 VERSICIN: | fin Ss RELEASE TA * 
; + 
SS FREHLEY HEH ERE EH HEHEHE 
క # 
5 PRESENTED EY: ALE COMPUTER FPROODUCTS INC. # 
5 4701 W. ROSECRANS BELVO, ¥ 
క HAWTHORNE, CALIFORNIA + 
$ VOSS 5 UV cafe + 
: # 
SMHHHKRKHHHHHRHHEHKKHKHHHRHHHHHHREHKKHHHKHHKHHHHHHHHHHHHHKHHRHHHEHEH 
: + 
ర WRITTEN BY: STAN KRUMME + 
: # 


He HH HH HHH HEHE EE HH HHH KH HHH HH HH HH HE HH HH HHH HHH HH HH KH HH HH HHH 
THE DISK CONTROLLER MODULE (OCM2) EXECUTES INTERNAL * 
TO THE JADE DOUBLE DO DIsk CONTROLLER BOARD. THIS # 
PROGRAM FROVIQES A FACILITY TO READ/WRITE DISKETTE # 
SECTORS AND FORMAT DISKETTE TRACKS CIN SINGLE AND # 
DQUBLE DENSITY). THIS DCM SETS THE PARAMETERS FOR +# 
EACH DRIVE DURING THE "“LOG-ON" OPERATION. THE * 

% 
+ 
# 
# 


68S 8 8 


838 we WSR Se 


FORMAT.COM PROGRAM WRITES AN IDENTIFICATION SECTOR 
WHICH FROVIDES THE NEEDED INFORMATION, af THIS 
IDENTITY SECTOR IS NOT FRESENT ON THE DISKETTE, 

If IS ASSUMED TO BE A STANDARD 3S" 3740 FORMAT. 
THIS PROGRAM CONTAINS A 4 WORD TIMING BLOCK WHICH # 
SHOULD BE FATCHED TO MATCH THE USERS DISK DRIVES, # 
THIS HAS NORMALLY BEEN SET FOR SHUGART SASOO/SO1., +# 
HHH HHH HHH HK HHH HH HHH HH HH HH HH HH HH HH HH HH 4 4 4 4 HH 4 4 EH HH 


22 48 S88 8 VS SB 


JR Be 


RHEE HEHEHE HEE ERLE REREEHHHRHE KHER RHEE HK EK HH 
DISK CONTROLLER MODULE IS COMMAND COMPATABLE WITH # 


wz 8 


> THE FOLLOWING WESTERN DIGITAL CONTROLLER CHIPS. +# 
5 DOUBLE DO USER SWITCH O (UO OR RO) MUST BE SET TO # 
5 INOICATE THE CONTROLLER CHIF DATA BUS FOLARITY. +# 
5 HHHKRHKKEKHKHRHRHRKRKRKEHKKRKKKHRKHHHHKHKHKHHHHRHHKRHHHHKHHHHERHHHEHEHE 
3 CONTROLLER IC USER SWO శ 
క దానా. దాదా ల # 
; POISSI-OS' 401) CLOSED ౫ 
5 FLi7Zw3-ox (O01) OPENED #% 
; FOL7?S-02 CLOSED + 
5 FD1 797-02 OPENED శ 
> HHRHHKKKRRKRKEHHHHKHKHHRKHKRRHHHHRHHHRHKHHKHKHKEHHHKHHHKHHKEHHKHEEEHKEREREH 
> THE FOL/793-02 AND FOL7?7-02 PROVIDE ENHANCED SINGLE +# 
5 DENSITY FERFORMANCE IN THAT THESE CHIPS ARE FLILLY # 
5 COMPATABLE WITH FOI771-01 3740 FORMATS. # 


> HHHHKHKRKRKKRHKKRKRHHHHREHHKHKRKRRKHKHHKHHHKHHHHHEKKRHEHRHHHKHHHHRHHRHEHHHHHHHSE 





TOL 220 CP/M DISK ASSEMBLER VERSION 2.21 | PAGE 2 
DISK CONTROLLER MODULE (OCM2) 
HARDWARE DEFINITION 


SHHKHKHERRKEHHRHHHHHHKHHHHKHHKHHKRKHHHKHKRKRKRRRHHHRHHKKRHRKRKRKRKHRHKHHHHHKHKEEE 
5 THE FOLLOWING IS A LIST OF THE INTERNAL I/O ADDRESS * 
5 ASSIGNMENTS. THESE FORTS AND CONTROLS CAN ONLY BE # 
5 USED BY THE ONBOARD Za0A. THESE FORTS AND CONTROLS # 
5 ARE NOT IN THE S100 BUS ADDRESS sPACE. # 
HHH HHEHHHHHHHHEHRHEHHHHRKHHRKHHHKHHE HERR HRHRRHEHHRRRHRERH 


"#HEEEHH( CONTROLLER FORT ASSIGNMENTS )HHKRHRHHKEKKRRERHEE 


0000 BL.sts == COOH SBOARD STATUS FORT. 

౧000 BL.CTL == QQOH SBOARD CONTROL FORT. . 

0004 WL FNL == QOO4H ;17%X COMMAND REGISTER. 

0004 WO.STS == OO4H s177X STATUS REGISTER. 

0005 WO.TRE == OOH 172X TRACK REGISTER. 

0006 WO. GEC == QO6GH ;177X SECTOR REGISTOR., 

0007 WLI LITA == Q07H 172% DATA REGISTER. 
SH#HHHHEHH( CONTROLLER FUNCTION ASSIGNMENTS )##HHRHHHHHHHE 

OOO XFa TF == OOH ;ISSUE STEP PULSE. 

O0O10 XFMTL == O1OH sMOTOR TURN OFF. 

QOZO XPJ.IRR == O20H £5100 INT-REG RESET. 

0040 XF. MTX == O40H MOTOR TIME EXTEND. 

O00 XP.0SH == OBOH ;OATA SYNC HOLD. 
SHIEH HHH EHEHEHHHHEHEHHHRHEKRHEHRHERHHHEHRHHEEE 
5 THE FOLLOWING LIST ASSIGNS EACH BIT FPOSITION AND * 
3; FUNCTION OF THE BOARD CONTROL FORT (BL.CTL). # 
SHEEP HREHRHHHEHHHHEHHHHHKHHEHEHEHHHHRHHRHRHHHHHHRHHHHHHEHEH 
SHHHHHEH( BIT ASSIGNMENTS ) Hee RHERHHRHRKHHKHRHEREHREHEESH 

0001 EC, OSA =< QOQOQQQ0018 SDRIVE SELECT A (2#O). 

QO002 EL, LIEGE == OQ0000010B ;QRIVE SELECT B (2#1). 

0004 EC DEE == QO00001008 SLRIVE SELECT ENABLE. 

OO08 BC.ETA == Q0O001000B8 ‘EIA SIGNAL LEVEL CUT. 

O010 EL, DLE == Q0010000B8 SDOUBLE DENSITY ENABLE. 

0020 EC DAE == OoOLO0000R SOIRECTION AND TILE 

౧0040 BC.PCA == O1000000B8 sFPRECOMP SELECT A. 

OOO BC.FPCR ==  10000000OE ;SFRECOMF SELECT &. 
SHHHHHHH( FUNCTION ASSIGNMENTS ) ##RHEHHRHEHHRHRHRHEHHHEHE 

O00 BC.OSN == BC.OSA'RC. OSE ;URIVE NMBR MASE. 

QO000 BRO SDS == © SSINGLE DENSITY. 

0010 BC.00S == EC LOE FOOUBLE DENSITY. 

0040 BRC.FCH == BC.PCA ;PRECOMF —- HEAVY. 

O00) BC.FCM == BC.FCE 7FRECOMF — MEDILIM. 

O0C0 ELC.FLL == EL, PFCA'EC, F'CE $FRECCMF ~ LIGHT. 

O00 BC.SD1 == ELC DOAS SELECT SIDE ONE. 

O02Z0 BC.INW == BC.DAS STEFF INWARD DIRC. 


SHRHHHKHKKRKREHKHKRRRKHRHKKRKRKRKHKRKHHHRRERKRKRKHKRKRKHKHKRHKHHHKHHHHHHKEHHHEHEH 


TOL 2820 CF/M DISK ASSEMBLER VERSION 2.21 PAGE = 
DIsk CONTROLLER MODULE (OCM2) 
HARDWARE DEFINITION 


J HHHHHHEHHKKERHHKRHKHRHHRHHKRKKEHHKHHKERHRKERHKERHHHERRHEEREE 
5 THE FOLLOWING LIST DEFINES EACH BIT AND FUNCTION OF # 
5 THE BOARD STATUS FORT (BL.STS). | # 
S HHHKHKHHHHHKHHHKHHRKKKKHHKRKRHKHRRHHHRRHHHERERHHRRERHHEHHHH 


0001 Ea lid == o00000018 sUSER SWITCH ©. 

VOOR BS.US2 == O00000108 SUSER SWITCH 1. 

0004 BS.7TST == 000001008 TEST MODE SWITCH. 

O008 BS.INT == 000010008 sHOST INT REQUEST. 

0010 BS.ETA == O0010000B EIA SIGNAL LEVEL IN. 
O0ZO Ez, MF == O01]00000B8 ;MOTOR OFF INIOCATOR. 
0040 Ea. Tal == O1L10000008 5 TWO SIDED DRIVE FLAG, 
OOO BS.0CN == 1JOOOQQ0000BR 7OISK CHANGE INOICATOR. 


| EHHKKHHKHKEHHKKERHHKKERHHKRKHKKERHHKHERERHKRKEHHKEEHKHEHREEH 
5 THE FOLLOWING IS A LIST OF COMMAND CODES ISSUED Tu # 
> THE 179X-O2 DISK CONTROLLER. + 
S HHHKKHHHHHRHHKEHHHEHHHHEHHKHHHEHHHERHHRHHHRERHHHERHRHHEEEHH 


OIE! LC. HLL == 000110008 7SEER/LOAD RW HEAD. 

OO10 QC. HOLE == Q0010000R8 7SEER/UNLO RW HEAD. 

O0SS LL RL ==  10001000E REAL SECTOR. 

OOAE OC.WRS == 101010008 WRITE SECTOR. 

QOOFO NC.WRTE == 111100008 IWRITE TRACK FORMAT. 


QOOCO Dl. ROA 119000008 REAL TRACK ADDRESS. 
QOOD0O nC.STs 110100008 EET TYPE 1 STATUS 
oous , DC. IF I 110110008 7;FORCED INTERRUPT. 


5 PHHERHERKKEHHEERHERKKEHHERHERRKERKERRHERHHERHRERHREERHEE 
5 THE FOLLOWING LIST CONTAINS ALL THE MASKS USED TO # 

TEST THE 179X-O2 STATUS CODES (FORT WO.STS). * 
HHEHHHHHHHEHHKHHKKHHHRKKKRRHKHHKHHHHRHRREHHHHERHRERHHREHREESE 


22 We 


QOoO?D IM.RER == 100111018 REAL ERROR TEST. 
OOFD DM.WER == 111111018 WRITE ERROR TEST. 
OQOE4 IM.FER == 1J1i1lO0100B FORMAT ERROR TEST. 
0004 DOM. TRO == O00001008 TRACE O TEST. 

OO) LIM.HLL == 90100000B8 HEAL LOAD TEST. 
QOSO LM.LINR ==  10000000E LRIVE NOT READY. 


0004 LIM. LOE D000 1 DOE LOST DATA ERROR, 


SHRHHKRHKKKHKRHHPKRRKRKRKRHKRHKRKRHHKHKRHKHHHHHHKRHHHKHKRHHKRKHHKHHRHRHEKE 


TOL Z&0 CP/M DISK 
CONTROLLER MODULE (OCM2) 
MEMORY ASSIGNMENTS 


OISk 


1000 
0400 
1400 


1000 
1008 
1010 
1O1e 
1020 
1025 
1030 
1038 


bh ph fr re hr ph 


3 
Com? 


ee Cp 


La 


Go Oo MS) NN 


NENG) 09 
ae CG 


ASSEMBLER VERSION 2.21 PAGE 4 


SHHHHHHKKHKHHRHKRHHHHHHHHHHHRHHHHHHKHKHRKRRRHHHKRHKHKHHKKHKRHKHHHEERH 


5 THE FOLLOWING LIST DEFINES INTERNAL MEMORY. # 
SHHHHHHHKKRHHHKEHKHEHEREKREEHHEHEHHKRERHKHHEEHHHRERHHHHEHHHHEHE 


SHEHHHHHHHH( BASE ADDRESS FOR DCM ) H#HHHHHHHHHHHHHHHEHHEH 
BASE == 1000H EASE ADDRESS. 


SHHHHRHHEHHH( MEMORY HANES ) HHHRHHHRHHHHKHHKHHRHHHHHHHHHHHE 


BRANK.O == BASE+0000H ;BANE © DEFINED. 
BRANE.L == O400H > BANE LENGTH. 
BRANK.1 == BANK, O+BRANE.L 7>BANE 1 DEFINED. 


SHHHHHHHHHHEH( RESTART VECTORS ) HHHHKRHHHRHHHHHHHHHHHKHHHEHEH 


RST. 0 om ms BANK. O+0000H RESTART 0. 
RsT.l =o BANE... O+0008H RESTART 1. 
RST. 2 =o BANE. 0O+001 0H RESTART 2. 
RST. 3 ot BANE... O+0015H RESTART 3. 
RST. 4 =o RANE... O+0020H RESTART 4. 
RST. జ RANE. O+F0025H RESTART SS. 
RST. & aoe BANE. O+0030H RESTART 4. 
RST. 7 =o RANE. O+00 35H RESTART 7. 


SHHHHHKHHHHH( INTERRUPT VECTORS ) RHRHEKRHHHHKRHHHHHERERHHEHEH 


HR. INT == STs 7 5 MASEHABLE. 
NM. INT == BANE. O+00646H ENON MASEABLE. 


SHHHHHHHHHH( T/0 COMMUNICATION JHHHKKHHKHHHKHHHHKHRHHHHHEEH 


IO.BLE == BANE. 0+0370H 51/1 BLOCK BREGIN. 
TP.STR == 0. BLE+O000H TOF OF STACK. 
CMO. BE == IO. BLE+O000H COMMAND BLOCK. 
BUF. BG == It. BLKE+O010H SECTOR BUFFER. 
FMT.BG == BANK. 1+0300H FORMAT BUFFER. 
FMT.PS == FMT. BG+0008H FORMAT PROGRAM. 


5 HHHKRHKKHHKRKEHKKRRKHKKHEKRKRHKHHHHHHHHRHKRHHHRHRHRHHHHHRHHRHHHHEREEX 


TOL 280 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 3 
DIsk CONTROLLER MODULE (DOCM2) 
MACRO DEFINITIONS 


HHEHHKEHHHHKKHHKHHHHRHERHHEEKHHHKRHHHKERHRHKKEHRHHREERHRHRERE 
WAIT IS A "RESTART" TO THE TIMER SUBROUTINE ENTRY. # 
THIS SUBROUTINE PROVIDES MOST OF THE TIMING USED BY # 
THE DOUBLE DO CONTROLLER. * 

HEHEHE HEHEHE KKK HHHERKERHEHHHEHRERKKRRHRERHRHHREHRHREREE 


8 88 68 <8 sa 


DEFINE WAIT = LL 
RST Li 


5 HHEHHKHKHEHHKEKHREKKERHHRHKRHKKREHKRHHHRHHKHEHHHHHHEEHHEEH 
5 ASSEMBLER OITRECTIVES + 
SHHEHHKHHHHHHERHHHHKEHHERHRKEHHRHKREHHHEHHEHHREHHERHEHHREEH 


»-FARS ABSOLUTE ADDRESSING. 
HEX 5 INTEL HEX OBJECT FILE. 
» XLINE INO LINKAGE REGUIRED. 


5 HHHREHEHHKHHHHHHKKHHHHHHRHHHRHHEHRRHEEREHEREREERERRHREHREEREEE 
> TENTH MILLESECOND TIMING CONSTANTS / 0.2 MS FOR 3S" # 
SHEHEHHHHKHHHHHHHHHRHRHHHHHHEHRHERHHHKEHREREHHRHHKHRERHEHHHHHHEEE 


QO TMR.FOC == OO1%7H TIMING CONSTANT: FIRST PASS. 

OO1CL TMR.NC == QOO1CH TIMING CONSTANT, REPEAT FASS. 
| HHHHHHHHHHHHHHR HERE RHE RHRHERREERHRHHERHHRHEEHHRHER RHEE 
5 BAUD RATE GENERATOR — TIMING CONSTANTS *¥ 
5 HHHHHHHHHHHHHHHHHHHHRHHRKHKKHERHKRRRHHERHHHHRRERRHHHHHEEE 
5 EALILRATE US/BIT ie sh A VEE * 
క దాదా. ల జాలా. i a # 
5 12200 apn “ N.A. # 
5 P4600 104.2 nl ? # 
; 4500 208.3 a7 జ * 
; 2400 416.6 Let a7 * 
5 1200 Be PRC 245 iz # 
5 E00 1446.6 Ne. A. 245 # 


SHHHKHHHRHKHRHKHEHERHEHHKRHERKRERERKRERKERKEHERHERHEHRHRERHEREE 
OO1Y BAUD. == ed SEAL RATE CONSTANT 2600 8". 
5 HKHEHKPKRHKHRKRHKEHHHKRHRHERHRRHERKREREKHHHHRRHERER ERE EHRERE 


5 ERROR RECOVERY VALUES + 
5 FHHHKKHHKKKHHKHKEHHHHREHHRKEHRHHREHHHHRKREHHHRERHERHEKERHRHHEHE 


00053 RTY.SE == SREPOSTITION R/W HEAD ON RETRY. 
DOO RTY.LS == 7 LAST REPEATED RETRY. 

OO1A TRE. UE == Zh AT FIRST THIRO TRACK OF DISK. 
0034 TRE.IR == wae SAT SECOND THIRD TRACK. 


> HHHEHHHKRHKHKRHKHHKRHKRKEKRHKKRHKHHKHHHHHHHRHKRHRHHRHKRHHRHHHHHHHEHHEEHEHEH 


TOL zSo CP/M DISK ASSEMBLER VERSION 2.21 PAGE 4 
DISK CONTROLLER MODULE (DOCM2) 
BASE FAGE 


HEHEHE HEEHHHEHEHHHR HHH EHRERHHRHREHHKRERHRHHHEHHHRERHEE 
THE FOLLOWING AREA IS THE INITIAL START JUMP TABLE. # 
THE FIRST JUMP IS EXECUTED WHEN THE ONBOARD ZS0A Is # 
RESET. THE SECOND JUMF IS THE DCM ENTRY FROM A # 
BOOTSTRAP LOADER. THIS ENTRY ASSUMES DCM HAS BEEN # 

# 
# 
+ 


2s 88 8 


vs 8 


LOADED INTO DOUBLE [DO BANE 1 BY THE LOADER ROLITINE. 
THE LAST TWO BYTES HOLD THE JUMP ADDRESS USED BY 
RESTART INTERRUPT ROUTINE AT BANE O + O350H, 
SHEEHHEHRHEHHEHEHHEHHERKKEHHERKEHKHRHEERHEHHHREHHREHHHERHHE 


s ws Se we 


1000 «LC RST 0 MOLLE BEGINNING. 

1000 C3 0000 IMF QO SNOT IMPLEMENTED. 

1003 CITIES IMF INIT. B+BANE.L ;ROOTSTRAPFED ENTRY. 
1006 1041 HR. VEC: .WORD Ks CUTE HET INTERRUPT VECTOR. 


SHHEHHHHHHHHHEHHHKHHEHHKKHKEHHHERHHERHHEHHKHERHHKHHHEHHRHEHHE 
THE FOLLOWING SUBROUTINE IS THE ENTRY POINT FOR THE 
5 DISK CONTROLLER TIMING MODULE. THIS MODULE PROVIDES 
5 DELAYS WHICH ARE MULTIPLES OF 100 MICROSECONDS. THE 
5 CONTENTS OF REGISTER PAIR DE DETERMINES THE TOTAL 


28 


PERIOU. (DELAY = (DE )# 100 MICROSECONDS). THIS 
SUBROUTINE IS ENTERED BY THE MACRO "WAIT". 
HHEHKHHHHHHRHEHRHEHREHERKHEHEHKHHKHR EKER ERERERRRKEHEHEE 


ee 


1003 » LOC RST. 1 TIMING ENTRY FOINT. 
1008 O61 MVI E, TMK. FC sFIRST TILE CONSTANT. 
100A 1OFE LINZ . AITO DEC UNTIL ZERC., 
1000 Cs 1074 IMF TICK.E SJUMF TO TICK ENTRY. 
SHEHHHHHHREHHHH KKH HEKHHHEHKHKHEHHKKHEHHKHHEHHRHHHRRHRHERRHHEE 
5 THE FOLLOWING SECTION Is THE DISK ORIVE TIMING AREA. * 
5 THE TIMES ARE SET FOR THE SHUGART SASOO. THIS AREA # 
? SHOULD BE MODIFIED FOR THE END USERS DRIVE TYPE. # 
J HHHEHHKHHKHKHKHRHKHEHKHRHKERKKHKHKHHHKHHHRHRHHEHRHRHHHKHHHHEHEHH 


SHHHHHHH( TIMING VALUES IN OO, 1 MS J) XHHHHRRHHHHHKHHHHHHEHEHE 


1010 a LLL RST. 2 

1010 Q1ISE TM.HLOS «WORD 330 HEAL: ENGAGE TIME. 
1012 QO30 TM.STRs .WORD SO 7;STEPPER INTERVAL. 
1014 OOO TH. ALE: .WORD 0 AFTER LAST STEF. 

1016 O001 TMAMTOS JWORD 1 MOTOR START LF. 


FS HHHKRKRKHRHRKRKKRHEKRKRHHHKKRKRKRHHHEKRKRHHHKHKRHRHKHKHHHKRKRHHHKHKKRHHHKRKHEHHRE 


1018 
IOLA 
1010: 
101E 
1O1F 
1020 


1022 


1024 
10264 
102 

1029 
102A 
10248 
102C 
1020 
1O2F 


10:0 


TOL Z20 CP/M. DISK 
Disk CONTROLLER MODULE 
BASE PAGE 


FOE 1 
DBOS 
Cvso7 
73 

AY 

D304 
1SFE 


SEDO 
AY 
[iia 
ES 
ES 
Es 
ES 
DBO4 
AY 


CY 


DB2O 
cit 


2A 1006 


EY 


SSEMBLER VERSION Saat 
(OCM2 ) 


ss WS 


THE FOLLOWING 
FUNCTION. As 
EXPLICIT COMMA 
WITH THE HEAD 


ER 8 ve 8s SS ws 


THE FOL73X-O2 


TRACK IS SET EQUAL TO THE TRACK REGISTER TO BYPASS 
THE FOAI7?X-O2 STEPPING FUNCTION. 


PAGE 7 


HHEHHHHHKHRKKHRKRHRKHHKRHHRHHHRHHHHHHKHRKRHHRHHRKEHKRHHHRHHRRHRHREHREERSE 


SUBROUTINE PROVIDES THE R/W HEAD CNTL 
THE TFET OE DOES NOT OFFER THis 
NO. THE SEEK COMMAND (TYFE-1) IS USeD 
LOAD BIT SET / RESET. THE DESTINATION 


FLEASE REFER TO 
FLOW-CHART FOR TYFE-1 COMMANDS. 


HK oe me ee me Oe 


SHHHEHHRHHHHHHHHHHHHHKRHHHHHHRHHHHHHHRKHRKHRHRHRHHRREHRRHHEREE 


EX.HOP? PuP 
IN 

CHIT 
Mav 
XRA 
CLIT 
AMER 


HHEHHHHHHEHHEEE 
THE FOLLOWING 


NOTE: THIS Is 
CONDITIONS SET 
HHEHKHKHHHEHKEHRE 


Je 8 S38 ss VE wR 


XRA 
CIT 


HHPHKHHEKHHKEKE 
THE FOLLOWING 
ROUTINE. THIS 
THE 280 FROM A 
DOUBLE 0 INT R 
ADDR IN REG DE 

5 PHHHKHHHEHHHEEE 


2s “8 88 VS we VR SR 


ACEC 
IN 

Por 
LHL TD 
POHL 


FHRRERKHRHHEKRERRHER 


Y SRETURN ADDR IN REG Y. 
WO. TRE REAL PRESENT TRACE. 
WL. LITA EET DESTINATION TRE. 
As E 7;LOAD TYPE-1 COMMAND. 
f. INVERT (1771-01). 

WL CML 5 ISLE COMMAND. 

. WAIT FOR INTERRUPT. 


HHHHHHKKKKKKEHERHHHKHHHHHEHHHHHRHHHHHHHHEHHEH 
SUBROUTINE UPFDATES THE FOI?7?X-O2 # 


STATUS FORT TO REFLECT CURRENT TYFE-1 STATUS CODES. # 


A TYPE-4 COMMAND WITH NO INTERRUPT + 
. * 
HHEHHHERHEHEHH ERA HERHHHHKKHEHHKEHHHHRHRERHERE 


ALDC. STS LOAD SET-STATUS CMNID. 
C 5 INVERT (1771-01). 
WO. CMD 5 ISSUE COMMAND, 
PALE FOR FOLS?X-O2. 
FALE MORE. 
;PAUSE STILL MORE. 
FALE LAST TIME. 
WO. STS 5 INPUT STATUS FORT. 


CC $ INVERT 1791-017]. 
SRETURN TO USER. 


HHEHHHHKHHHHKHHHKHKHHRRHKERHKEHHEEHHRERHREESD 
SECTION IS THE MASKABLE INTERRUPT # 
ROUTINE TS EXECUTED WHEN RESTARTING + 
HALT. THE FUNCTIONS ARE RESET THE # 

EQ PLIP-BLOP:. PUT THE INTERRUPTS 2 

> AND JUMP ADDRESS AT "“HR.VEC". # 

HHERHHHRHKKERKHKEERHKKRERHHHEHEEKHHHEHREHEHE 


HR. INT SHOST INTERRUPT ADDR. 
Al aha ere «3 RESET INTERRUFT REG FF 
Ci 7;PURGE INTERRUPTED ADR 
HR. VEC LOAD RETURN ADDRESS 
7JUMP RETURN ADDRESS 


FERRER HEHEHE EEE HEEL EHH 


TOL 280 CF/M DISK ASSEMBLER VERSION 2&.21 PAGE & 
DISK CONTROLLER MODULE (DCM=) 
COMMAND FETCH AND BRANCH 


SHHEEKHHHHHHKHRHHRHRHKHHRKHHHHHHHKRKHHKHHRKHHHHKHHHHKRHHRHHHRERHEREKE 
THE FOLLOWING SECTION HALTS EXECUTION OF THE 
ONBOARD ZS0A PROCESSOR. DURING THIS TIME THE HOST 
SYSTEM CAN SWITCH THE CONTROLLER MEMORY INTO THE 
Si00 BUS FOR STATUS CHECK, SETTING COMMAND BLOCK, 
AND SECTOR DATA TRANSFERS. 

SHH HHEHHEHEHHEHKKHRHEEREHHREHRKEHHHHHHEHHEREHREERE 


at 


me KR mk ౫% 


ws we <J8 we 


103F FE FETOHE: &1 ENABLE INTERRUPT START 
1040 76 HLT HALT ON-BOARD PROCESSOR 


SEEKER HEHHEHEHHERRHHEHEHHERHEHHEHHHHHHHREHRHHHEHHEE 
5 THE FOLLOWING SECTION GAINS CONTROL AFTER THE DISK # 
s CONTROLLER IS INTERRUPTED FROM THE HALT CONDITION. # 
5 THIS SECTION BRACNCHES TO THE INDIVIDUAL COMMAND # 
5 ROUTINES. THE COMMAND TABLE CONTAINS THE ADDRESSES # 
5 FOR THIS OLSTRIBUTION., # 
HHH HEHKEHHHHERHKHHHEHKHKRHKERHHHHRHRKHKHEHHHRHREHREHEE 


1041 3A 1370 XK. CUTE: LOA CE. CMI sLOAD HOST COMMAND. 
1044 E407 ANI CM MEK sMASK ANY CFTIONS. 
1046 7 ALL A GET 2*#A VALUE. 

1047 1600 MV I 0.0 5 ZERGU OG REGISTER. 
1049 SF MOV EA 50OE NOW TABLE OFFSET. 
104A 21 1053 LXI H,.CM. OTA ;LOAD TABLE ADDRESS. 
1040 i [CALI [i sNOW POINTS Ta ENTRY. 
104E SE Moi E,M SLOW GQROER ADDR LOAL. 
104F 23 : INX H sFPOINT TO NEXT BYTE. 
1050 36 Mav [Li,M SHI ORDER ADDRESS. 
1051 EE XCHG ;BRANCH ADDR IN HL. 
1052 EY FPCHL >BRANCH TO COMMAND. 


S EHHHHKHEHKEHKEKEHHKERKEKRKKHKEEHREKKERHHRHEKKHEHHHEHHRERHEEE 
THE FOLLOWING AREA [IS THE COMMAND DRIVER TABLE. # 
5 EACH ENTRY FOINTS TO THE COMMAND ORIVER ROUTINE. % 
S HHHEHKHERHERHKHEHRHKHHHHHHEKHKHHKERHKERHHRRKHRHEERRERHEREH 


wea 


1053 CM.OTA == ఇ 7COMMAND TABLE. 


1033 LOAL »~-CMOA: .WORD $. LGON 7LOG-ON DRIVE. 
1033 107C »»CMIA: WORD $. READ REAL SECTOR, 
1037 108A »-CM2A: .WORD $,.WRIT WRITE SECTOR. 
1039 1078 CMSA WORD $. FORM FORMAT TRACK. 
1038 1007 »-CM4A: WORD $. ADDR REAL AUDRESS. 
1030 L1OCF 2» CMSA: .WORT $LIST LIST OUTPUT. 
1OSF 1005 »»LCM6AsS .WORD $.LSTT LIST STATUS. 
1061 10E4 »~-CM7A: WORD $. IDLE 7 BACKGROUND. 
0007 CM.MSE == 007H sLOMMAND MASE. 


5 HHHEKHHKHKRHRKHKKKKRRKKKHKHKRKRRKEKKEKKRHHKHKRHHKRHHHHHHHHHRHKRHRHKERHHH 


TOL Z80 Cr/M DISK 


DISK CONTROLLER MODULE (DCM) 


NON MASKABLE INTERRUPT 


10464 

1064 DIBO4 
1068 AY 
10697 32 1324 
106C FOES 
106E En45 
1070 O61C 
1072 LOFE 
1074 1B 
1075 7A 
1076 BS 
1077 00 
1078 Oo 
1077 TOFS 
1078 cy 


CR 


JB 


@wSB we 


Is 


ws Se WS 


ASSEMBLER VERSICN 


uel 


UPON 17%X-Oz 
RECIEVES A NON-MASKABLE INTERRLUFT, 
INTERROGATED 
CONTAINS THE RETURN ADDRESS. 
HERHKKHERHEKHEHEHRHEKHRHHRHKRHEHHEHRHEHHHHRHHHEHEHHHEHHEHHEHHEHEE 


SECTION TS 


AND SAVED 


THE NON-MASEKABLE INTERRUPT # 
COMMAND TERMINATION THE ZS0O # 
THE STATUS FORT # 

(SV 4257S? REGISTER IY % 

+ 


PAGE 9 


KHHKKREKREKHKHHRKHKERHHRRREHKRKRKERHHRHRHRHRHHKRHHHHHHHHHERHHHHEHEH 
THE FOLLOWING 
ROT INE. 


»LOC NM. INT 7;NON-MASKABLE INT. 
WL. INT: IN WL. STS GET 17%X STATUS. 

XRA c 7INVERT (1771). 

STA SV.STS ;SAVE STATUS. 

XTIY EXCHANGE (SF)<ST1Y. 

RETN ;RETURN AT GLO IY. 
7 HKHHHHKKHHRKKHHKHKHHRHHKKRHKRHRHHHRKHHHHRHHHRHHKRHRHKHHRHHHRERHERE 
5 THIS SECTION IS THE REMAINDER OF THE TIMING % 
5 SECTION ENTERED BY A RESTART 1. SEE THAT SECTICN * 
> FOR THE DESCRIPTION. # 
FHHHHHKHHHEEEHKKHHHHHHHHHHREHREHRRKHKHHHREKHRHRHHHHHHRERREHH 
TICK.RS MVI E, THR. NC: SNORMAL TICK CONSTANT. 

LINZ ఇ AUTO DEC UNTIL ZERC. 
TICK.JES DCX Li 5 LECREMENT AMCUNT. 

Mav As Li GET HIGH ORDER. 

CRA E 7AND LOW ORDER. 

Nor STIMING ADJUST. 

NOF >TIMING ADJUST. 

LRNZ TICK.R SREPEAT UNTIL ZERO. 

RET RETURN TO USER. 


FHHRHKHKKHHKHKRKHKKHKRKKHKHKRKHKHHKRHKHHKHRHKHHHRHKHHHHHHHHRHHHEHRHEH 


TOL ZO CF/M DISK 


DISk CONTROLLER MODULE 
COMMAND CONTROLLERS 


1076 
1O7F 
10a 
1084 
1087 


103A 
101i 
1120 
1072 


1075 


1073 
107B 
LOVE 
1041 
10A4 
10A4 
LOAY 


10ac 
LOAF 
1080 
LORS 
10B4 
10E7 
1OBA 
LOBRC. 
LOBRF 
10C1 
10c4 


CO LOEF 
CI List 
2003 

CO 1204 
Cae alosr 


CO 1OEF 
OD tis1 
ZOOS 

CD leer 
Co 103F 


CO 1OEF 
SA 1373 
OO7 702 
CH iol 
2003 


CO 123A 


Ca LOSrF 


CO 10EF 
AF 


32 1372 


శి 
EE) 


+ Ci 
ha 0) 


Co 
2008 
CL 1204 
ZOOS 
CO 1207 


C3 103F 


1373 
Lisi 


ms 
cea 


ASSEMBLER VERSION 2.21 
COPS 2 


FAGE 10 


© LERERERE RHR ERE HRH ESHER HEH RH RHR HEHE RRM REMR RRR EH 
5 $.READ IS THE READ-SECTOR COMMAND CONTROLLER. # 
HEHEHE HHHRREHHERHHHERHHHERHHHEHHHHHHHHHHHEHRHEHHHRERHERE 


$. READS CALL SELECT ELECT DRIVE ROUTINE. 
CALL SEER ;SEEK TRACK, SET CTLS. 
IRNZ maak T SDRIVE OR SEEK ERROR. 
CALL RO. SEC REAL DISK SECTOR. 

ERLE INE FETCH GET NEXT COMMAND. 


SHEHHEHHEHHHHHKERHERKERHREHEHHEEHRKERHHHERHHEHHHERHHEEHHEEE 
5 $.WRIT IS THE WRITE-SECTOR COMMAND CONTROLLER. # 
SHHEHHHEHHEKHHHEHHEHHEHKE RHE RHEE HHEHHHRHHHRERERRHHREHHHEES 


$.WRIT:S CALL SELECT SELECT DRIVE ROUTINE. 
CALL SEER SEEK TRACK. SET CTLS. 
IRNZ SEAT! SORIVE OR SEEK ERROR. 
CALL WR. SEC WRITE DISK SECTOR. 

se BXGTS Me FETCH GET NEXT COMMAND. 


SHHEEHHHKEHKHRHEHHEHEHKERKRREKKEHERHEEHHEHRHRHHEHHERHREHRERHE 
5 $.FORM IS THE FORMAT-TRACK COMMAND CONTROLLER. # 
SHHEHRHKHHHRHKEHHEHHEHK RHR KHHKERKEHHRKERHEHHHHHRHREHHEHREE 


$.FORM: CALL SELECT SELECT DRIVE NUMBER. 
LOA CR SEC SLOAL FORMAT FLAGS. 
MOV DV.FLG(X).A RESET ORIVE FLAGS. 
CALL SEEK S;SEEK TRACK. SET CTLS. 
JRNZ sth DRIVE OR SEEK ERROR. 
CALL WR. TRE WRITE DISK TRACE. 

seBALT? UNF FETCH GET NEXT COMMAND. 


S KHHHKEHKKHERHKKKERKERHHKKEHHKERHKHKEREHKHRRERHKERHRHHERHHEHE 
5 $,.LGON IS THE DRIVE LOG-ON COMMAND CONTROLLER # 
SHHHKKERHKEHHHKEEHHKEHKKERKREHRHHKHRHHHHREERRHKERHHHREREHH 


$.LGON: CALL SELECT SGELECT DRIVE NUMBER. 
XRA A 7ZERO REGISTER A. 
= TA CB. TRE EET TRACK AT 0. 
INR A NCW A REG Is 1. 
ETA LB SEL SET SECTOR TO IL. 
CALL SEER 7SokEK TRACK: SET CTLS. 
JIRNZ mare te SDRIVE OR SEEK ERROR, 
CALL RD. SEC s;READ IL SECTOR. 
IRN Z eE ALT READ ERROR DETECTED. 
CALL LUG. CIN SLOG ON DISK DORIVE, 
sabALin AMF FETCH GET NEXT COMMAND. 


> KHKHKKKHKKKKKHHHEKRHHRKKRHKHHKRHKREHHKHKRHHKHHEHKHKRHHHHHHHHRKHHHHKEHREHEREH 


TOL 280 CP/M DISK ASSEMBLER VERSION 2.21 
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DISK CONTROLLER MODULE (DCM2) 


COMMAND CONTROLLERS 


1007 
10% 


100. 


LOCF 
1002 


1005 
1007 
100% 
1ODC 
LODE 
1OE1 


10౬4 
10Eé& 
LOES 
1OEA 
LOEC 


CO 12F4 
C3 103F 


CEO 
E410 
CA 100E 
SEFF 
ge 1377 


Co 1OSF 


DBOO 
E40 
werd 
LIEz0 


Cs 1OSF 


SERRE 


5 $.ADD0R IS THE READ-ADDRESS COMMAND CONTROLLER. + 
SHEMHHERHHHEHKHKEHKEHKHHKHKHHR EKER HHREHEHEHRKERHREHREHHEHHEHEH 


A» OFFH ;LOAD ALL ONES. 
7S TORE ERRORS. 
SNOT IMPLEMENTED. 


$.ADDR: MVI 
STA CE. STS 
IMF FETCH 


5 HEHEHE HERHEREERREREEERERERHEERHEHEREEKHEHHHHHH HH 
5 $LIST IS A LIST DEVICE COMMAND CONTROLLER. # 
SHEER HHEHHHEHHERHEHHKRERKEKHEEHKERHKERRKERHERRRKERERE 


$.LIsT: CALL LSsT.oT 
IMF FETCH 


SEND CHAR TO LIST. 
GET NEXT COMMAND. 


S HHHEHHHHHHHHHKHHKEHKEHKERHHHKHHRHHKEHKERHHERHHRHHHEERHEH 
5 $.LSTT CHECKS LIST DEVICE STATUS * 
SHHHKHHHKHHHHEHHEHHHKHHHEHHHERKHEHRHKEHHEHKRHERHKERHERRHRERHEEH 


$.LSTTs IN BL.STS SGET BOARD STATUS. 
ANI Bs. EIA TEST READY BIT. 
WZ Pe ee IF ZERO GOTO EXIT. 


MVI A> OFFH S;LOAD ALL ONES. 
«EXIT: STA CB. STS STORE STATUS. 
IMF FETCH SGET NEXT COMMAND. 


5 HEHE HKKEEEREHHKKKEERHHKHKEERHHKKKKEERHEREHKKEREREREHREHE 
5 $.IDLE IS THE ILLE COMMAND CONTROLLER. # 
| EHHKEHRKKEEHKHERHKKREHKERHKKEHHKHERHRKRKREHHKERHHREERHHERE 


$.I0LE: IN BL.STS SINPUT BOARD STATUS. 
ANI BS. INT S;CHECK HOST INTERRUPT. 
RZ $. IDLE REFEAT ILLE CHECK. 
IN XP. IRR SRESET INTERRUPT REG. 
IMF FETCH GET NEXT COMMAND. 


5 HHKRHKKRKRKHHKRKKHHKHKRKKEHKHKRHHEHKRKEHHHHHKHHEHHHHHKRHHHKRKRKRHHHRRHHHEE 


TOL 220 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 12 
DISK CONTROLLER MODULE COCM=) 
DRIVE SELECTION ROUTINE 


SHEE EEHHEHERHHHHERERHHHHHRRHKHHHEHHHHHEHHHHHHEHHHHHREHER 
THE FOLLOWING SUBROUTINE SELECTS REMWUESTED ORIVE # 
NUMBER O-3 (A-D). BEFORE DRIVE SELECTION, THE DRIVE # 
5 MOTOR CONTROL STATE IS TESTED AND ENABLED IF NEEDED, # 
5 INDEX REGISTER X I5 SET FOINTING TO THE REQUESTED # 
5 DRIVE TABLE ENTRY. THE [RIVE IS THEN SELECTED. # 
SHHRHHHHKHHHHHHHHHHHRKHHHRHERHKRHEHHHHKHERKRHHHHERHHHHRHEHRHHREERESE 


Ste ( MOTOR CHECK ROUTINE J) HHKHHHHHRHRHRHHHKHHRHRHRRHHREHE 


LOEF DBOO SELECT: IN BL.STS ;BOARD LEVEL STATUS. 

1OF 1 EAL ANTI BS. MOF SCHECK MOTOR STATE. 

1OF 3 [E40 IN XF.MTX SSS TART OR EXTEND TIMER. 

1OFS Peat © an RZ wa LED IF WAS ON. NO STARTLUF. 

10OF7 EDGE 1016 LOE TH. MTL MOTOR ETARTUF DELAY. 

1OFE LE WAIT PROGRAMMABLE DELAY. 
SHHEHHHH( NEW SELECTION CHECK ) HHHRHHHKHHHHKRHKRKHHRHKHHHEHEEE 

LOFC 3A 1371 »~e2GckKOVs LOA CE. DRY LOAD ORIVE NUMBER. 

LOFF E603 ANT BRO. LIEN GET DRIVE NUMBER. 

1101 QOBEOO CMF ry. NBR CX) CURRENTLY SELECTED? 

1104 is RZ SRETURN IF ORV SAME. 
SHHEHHHHH( SET TABLE FPOINTER 1) HHHHHHKRHHHHRHHHHHHHKHHHEHRHHERH 

110% [Lil 1s42 LXxI X,0V. TEL sSORIVE TABLE ADOR. 

110% i1 9౧004 LxI LI, DOV. DES ;sORIVE ENTRY SIZE. 

i110: Lt = NEXT: DCR a) STECREMENT ORY Net. 

1100 FA 1114 if an USL T 51IF S=1] EXIT. 

1110 Doi + DATX Li SFOINT NEXT DRIVE. 

ba de tari MFR wa NEXT TRY THIS DRIVE. 
SHEHHHEH( TIESELECT COLD DRIVE ) #RXKHHKRRKRKRHHKRKRKHHERHHEHEHEHE 

1114 O10 »-USLT: MVI E, LL, HOU LOAD UNLOAD R/W HEAL. 

1114 CO lois CALL EX.HCF sFPOL73?X-O2 TYFE 1 CMNL. 

1117 3A LSS LOA ote ey EA SEL. CTL LAST ISSUED. 

111 E4F ER ANT HEL. OSE 7URIVE SELECT DSBLO, 

i11౬ Lii00 CHIT oe] See Seg SISSUE DESELECT. 
SHHHHREHHHK( SELECT NEW DRIVE J) KHHREHKHHRHHHREHHREHRHRHHHHKEEHE 

1120 ESF ANI HEC. DSN sSTRIF OFF DRIVE NMBR., 

1izeZ CORA CRA LV. NBR CX) sR IN NEW DRIVE NMBR, 

1125 [i300 CLT js ee Be i Se SCHUITPUT DRIVE NMBR. 

bey F404 CRI BC. OSE EET DRY ENABLE BIT. 

ii2? Ciz00 CIT Brule TL $ENAELE NEW ORIVE. 

1125 E607 ANI BC. DSN ' RBC. OSE SNOW JUST DRIVE ENBLED. 

1izu se iscsi STA SV. ORV SSAVE DRIVE SELECT. 

1120 Cy RET SURIVE IS SELECTED. 


SHHHERHHRHRHKHKHRRHHKRHHHKHRHKHHHHKRHHKHRHHRRHKRHHHHKRHHKHHRHKRHHRHHEHEH 


TRE 2e0°CR/M DISK 
DISK CONTROLLER MODULE (LLM) 
SEEK TRACK ROUTINE 


i131 
11:34 
1136 
Lis? 
113C 
113౬ 
1141 
1145 


1144 
1146 
1148 
1140 
114౬ 
1151 
1152 
11355 
1154 
tia 
1128 
ill 
11460 
1161 
1162 
1145 
1147 
114% 
116B 


116౬ 
LL] 


1174 
1176 
S17? 
117A 


CO 1024 
ESAQ 
FA 1174 
C2 1144 
Q418 
Co 1018 


ELISE 1010 


CF 


LEO) 
E640 
SA 1372 


DOYéEO1 
2021 
DBOO 
EFé40 

CA 1178 


DO7EOS 
Cs 11EA 


SESO 

32 #1377 
A7 

cs 


8 
pa 


ASSEMBLER 


VERSION 2,21 
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> HHHEKRKKKHHHKRKHHKKKRHHHKHHHHKKREKRHRKHKHHEKRRERKRKRHHHHRHRHEHEEE 
5 


THE FOLLOWING SUBROUTINE FERFORMS THE TRACK SEER # 
5 QFERATION. AFTER THE SEEK OPERATION, THE DENSITY # 
5 AND FRE-COMPENSATION CONTROLS ARE SET. # 
F EHHHKHHKHHEHHHKHHKKEKHHHERHHHRHHKHHRHRHHRHKHRARHHEERHHHHEHEEEE 


SHHHHHHH( HEAL 


SEER s 


PHHEHRHHH( DETERMINE TRACK 


=u LTA 


== NLIELE 


=o ILO: 


SHEHKKHH ( 


IHHHHHHH( TIR IVE 


=a NROY: 


CALL 
ANI 
IM 
JIN Z 
MVI 
CALL 
LIED 
WAIT 


IN 
ANI 
LOA 
Mav 
IN Z 
RAR 
STA 
MoV 
LOA 
JRNC 
ORI 
STA 


MVTI 
STA 
ANA 
KE 


LOADING 


EX.S7S 


DM. HLL! OM. LINK 


= -NROY 
»- DTAS 


B, UC. HLL 


EX.HCF 
TM. HLL 


BL. TS 
Es. TSI 
CE, TRE 
LA 

..«NOBL 


PH. TRE 
Hs A 
oV. ORV 
ee ol DO 
BC. SD1 
SV. DAS 
QA 
AH 


LV. TREX) 


os DEER 
BLASTS 
Es. TEL 
= = LISID 


SINGLE SIDED 


A»DV.CTLOX) 


aeEXIT 


JHHHKKHHKHHHHHHKHHHHRHHHKHRHHKHHHKHHHE 


GET DRIVE STATUS. 
SCHECKE HEAD AND READY. 
sORIVE NOT READY EXIT. 
;BYPASS IF HEAD LOADED. 
;HEAD-LOAD COMMAND. 
sEXEC FOL79X-O2 TYPE 1. 
EET HEAD-LOAD DELAY. 
;FROGRAMMABLE DELAY. 


NMBR ANDI SITE )HRHHKRHKHHHHEHHE 


SINFUT BOARD STATUS. 
TEST DISK SIDES FLAG. 
GET LOGICAL TRACK NO. 
ISAVE LOGICAL TRACE. 
SKIP IF NOT DBL SIDED, 
LIV BY 2 DOUBLE SINE. 
TORE FHYSICAL TRACK. 
SAVE PHYSICAL NUMBER. 
LOAD DRY NMBR ENABLED, 
5SEIF NEXT IF SIDE 0. 
70R IN SELECT SIDE 1. 
ETRE DRY AND SIDE EN. 
SAVE LRV AND SIDE EN. 
S;LOAD PHYSICAL NUMBER. 
TRACE OFFSET TESTED. 
SIF OFFTRACK., OO SEEK. 
5 INFLIT BOARD STATUS. 
TEST DISK SIDES FLAG 
SGOT DOUBLE.SIRE CTL. 


JHHHHHHHHHHKKHHHHRHEHHHHEE 


3GET PREVIOUS CONTROLS. 
SET CONTROLS / EXIT, 


NOT READY EXIT ) ##HHHHHHHHHHHHHHHHHRHHREHHEH 


ACS. [INR 


CB.S15 
= 


S;DRIVE NOT READY FLAG. 
STORE ERROR STATUS. 
EET NOT ZERO FLAG. 
7;ERROR EXIT. 


5 HHHHHKHHKKRHKKHKRHKRKHHRKKHKHKRHHRKHHHHKRHHKHRKRHHEHKRHKHRHHEHRHERERHEE 


TIL 2820 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 14 
DISk CONTROLLER MODULE (OCM2) 


SEEK TRACK ROUTINE 


SHHHHEHEHH( TIITSEETTE IS DOUBLE SIDED )#H#XHHKHHHHHHHHHHREHHEHE 


1178 7 »~e-USTOs May A>H GET FHYSICAL TRE NMBR. 
LiFe A7 ANA A TET IF TRACK ZERQ, 
1170 233E AR Z ot BETE sIF ZERG. RESET CNTLS. 
L1i7F OO7EOS mov A, DV.CTL(X) sLOAD COLO ORV CTLs. 
1122 ATE ANI HEC. SD SSOTRIF OFF SIDE CMNL. 
116 Ez CRA Li $C IN NEW SIDE CMNL. 
1185 (os 11EA IMF ine ALE GET CONTROLS / EXIT. 
SHEHHHEHHE( SET DIRECTION AND COUNT STEPS ) exe HeHRHHRHEHEYH 
1188 FS «SEER: PUSH FSW SAVE REG A AND FLGS. 
118% EDSE 1335 LIEL TH. SAW sSTEF AFTER WRITE. 
118D CF WAIT sFPROGRAMMABLE DELAY. 
L1ISE Fl FOF Faw RESTORE A AND FLGS. 
L1ISF SOA IRL. SOUT SIF CARRY STEF OQLIT. 
iii GF ea SlNs MoV L.A MOVE OFFSET To L. 
1192 3A ilssl LOA SV, ORV 7URIVE SELECT BITS. 
119% Fez CRI EC. INW SET STEP BRC IN 
1137 D300 QUIT Blut FE $OUTPUT CONTROL. 
Li?? 1S0B JIMPR oer ;GOTO STEF ROUTINE. 
live E44 = SOUT: NEG 7 COMPLEMENT OFFSET. 
1i?D FA 11F0 iM . » HOME ;BETTER HOME DRV. 
11A0 &F Moy LA MOVE OFFSET Ta L. 
L1Al SA 1331 LOA SV. ORV 7DRIVE SELECT BITS. 
11A4 D300 OUT BL. CTU EET DIRECTION OUT. 
1144 DOBOS erolier: IN AF, STF 5 ISSUE STEP PULSE. 
11As ELISE 1012 LOED TM. STF aTEF DELAY TIME. 
L1AC CF WAIT 5 PROGRAMMABLE DELAY. 
111A wll LR LL ;OECREMENT STEFS. 
L1AE ZOFS RN Z a cIEF ;REPEAT OFERATION. 
1180 SA 1332 LOA SV. OAS LOAD DRY AND SITE. 
LILES OSoOoO CLIT EL. CTL SOUTPLUT CONTROL. 
11B= ENSE 1014 LOETL TM. ALS MORE AFTER LAST STF. 
11EY CF WAIT ;FPROGRAMMABLE DELAY. 


5 HEERHEEEHHHEHEHHHHHEHH KH HH HHH HEH HEHEHE HH HH HH HHH HH HHH 4 HH HHH 


TOL ZSoO CP/M DISK ASSEMBLER VERSION 2.21 
DISK CONTROLLER MODULE (OCM2) 


SEEK TRACK 


11BA 
11ElI! 
11EF 
iit1 
1102 
11Cé 
1its 
11C8 
Lice 
1101 
1103 
1105 
11017 
110% 
1108 
1100 
110F 


L11E1 


L1iES 
11E4 
11E7 
11EA 
LIiEC 
11EF 
11Fz 
11F5 
11F& 
Lire 
11FE 
LiFG 


11FD 
1200 
1201 


ROUT INE 


SEO? 
NOAGOS 
CA 1I1El 
3A 1335 
FELA 
O4010 
SSO: 
FE34 
04670 
3306 
OEE 


1302 


O40 


2A Lose 
BO 

OO7 703 

L300 

Se Lass 
SA 1335 
DO7 701 

SA 1372 
AY 

D302 

AF 

CY 


CO 12Aé 
CO 
Co 11464 


5 HHHHHHH ( 


feiss 


= = OTST: 


= = ODEN: 


» 2 SUENS 


SHH ( 


7HHHHHHH( CALIBRATE TRACK 


=» HIMES 


LDA 
CPI 


MV I 


iy 


CUT 
STA 
LOA 
MOV 
LOA 
XRA 
CLIT 
XRA 
RET 


CAL 
RNZ 
el M F 


ET 


is 


CB. TRE 

1 

sia SEN 

As LF. LTL 

- TST 

As LIF. TILL 

LIV. FLG(X) 

». STEN 

FH. TRE. 

TRE. CIE 

B, BC. OOS! BC. FOL 
se LIL 

TRE. IE 

E, EL. LILI! BC. FCM 
welts 

EB, EL. [LIE EU. FOH 
mers Ooh 


BL BC. SOS! RC. FOL 


CONTROL VALUES AND 


SV. LAG 

B 

LIV. CTLCX)3A 
BL.CTL 

SV. CTL 

FH. TRE. 

OV. TREC(X)3A 
CE. TRE 

C 
WO. TRE 
i 


HOME. Li 


= = [TAS 


FAGE 15 


CONTROL DETERMINATICIN )X#RKRKHHHKRHHHKHHRKRHHHHHEKREE 


LOAD LOGICAL TRACE. 
COMPARE AGAINST 1. 
TRACE. O IS SDENS. 
SDATA TRE DENS FLG. 
GOTO TEST DENSITY. 
TRACE 1 DENS FLAG. 

5 TEST DENSITY FLAGS. 
IF ZERO, THEN SDENS. 
LOAD PHYSICAL TRACE. 
TET OUTSIDE BOUNDRY. 
SDODENS AND LOW FPRECOMPF. 
EET FOR OUTSIDE TRES. 
TEST INSIDE BOUNDRY. 
[ENS AND MED FRECOMF. 
JUMP TO CONTROLS SET. 
[ILENE AND MAX FPRECOMPF. 
;JUMP TO CONTROLS SET. 


;SDOEN ANI FC-—-LOW. 
EXIT ) SHEER HHHHHEH 


GET DRIVE AND SIDE. 
SET PRECOMP AND DENS. 
;SAVE CONTROLS FOR ORV. 
OUTPUT CONTROLS. 
SAVE THESE CONTROLS. 
SFHYSICAL TRACK NMBR. 
SET ORIVE TABLE. 
LOGICAL TRACK NMBR. 
INVERT (1791-01). 
GET TRACK REGISTER. 
GET ZERO FLAG. 
SRETURN TO CALLER. 


NUMBER ) H#XHRHHHHHHEHHEHHHHHHHESE 


HOME SELECTED DRIVE. 
EXIT SEEK. HOME BAD. 
SNOW SEEK TRACK. 


SHHHHHKHHKHKKRKKHKERKEKRKERKKRKRKHRKRKHHHKRKRERHHKRHKHHKHKHEHRHHHEESE 





TOL 230 CP/M DISK ASSEMBLER VERSIUN 
DISK CONTROLLER MODULE (COCM2) 
READ SECTOR DRIVER 


1204 
1205 
1208 
120K 
120C 
120E 
1212 
12715 
12-17 


1218 


121A 
121C 
IZ1E 
1Z1F 
1220 


1221 


hy 


“OO CF Os 


bo ha 
bh 


bo ha 


C: 
E 


oe ee pr be 


ho ha ho bo 
hi hi 


Fozi 1223 


2A 1L3SE 


SESS 


E6?D 

we Loe? 
Cs 

CO 127? 


2oEO 


“0 


FAGE 16 


SHHHKHHKEHHHEHHHKEHKERKEHKEHHKEHHHRRKERHRHKHEEHEHEHKEHHRHEEHRHEEH 
Is THE SUBROLITINE THAT INTERACTS WITH THE # 
READ SECTOR OPERATIONS. THIS SECTION # 


8s 88 we v8 


we 88 Wa 


7 HHHHHEKEK ( 


RO. SECS 


= RTRYE 


RO. SEC 
17YX-O2 DURING 
INITIATES 
CHIF DURING 
WHEN FINISHED. 
RETRIES ARE EXRCUTED IF DATA ERRORS ARE DETECTED. * 
HHH HHH HK HHH HEH H HHH HHH HHH KEKE EHH HH EEE HK EHH EHH HHH EHH HK KH 


CUT 
LXI 
LHLL: 
MVI 
XRA 
CUT 


DISK TRANSFER, 
DATA TRANSFER, 


SERVICES THE CONTROLLER*® 


TERMINATES OGFERATION # 


ERROR DETECTION IS IMPLEMENTED AND # 


a 

ERR. CT 
LCE, SEL 
Ct 
WL. SEC 
Yoo NMI 
BUF. ST 


AL, OC. ROS 


c 
WLI, CMD 


INITIALIZE READ OPERATICIN )H#HHRHRHEHHHKHEHHHEHESH 


7ZERO A REGISTER. 
ZERO ERROR COUNT. 
LOAD SECTOR NMBR. 

5 INVERT (1771-01). 
SET SECTOR REGISTER. 
;LOAQ NMI VECTOR, 

5 BUFFER START. 

REAL! SECTOR COMMAND. 
INVERT (1771-01). 
7TSSUE READ COMMAND 


SHHHHHHH( DATA TRANSFER LOOP ) HHHHHHHHHKHHHHHKHHHRHRHHHEHHEH 


= «REF TS: 


5 REE CC CHECK 


=a NMTLE 


IN 
IN 
XRA 
MOV 
INX 
IMPR 


XP. OSH 
WL. LITA 
డ 

MA 

H 

o REPT 


STATUS 


DM. RER 
CB. STS 


CHE. RT 
» «RTRY 


HOLD FOR DATA 
INPUT DATA. 

; INVERT (1771-01). 
FLT INTO BUFFER 
7BUMP BUFF POINTER 
760 FOR ANOTHER 


JHHHHHHHKKHHKHHHHHHHRHKRKHERHHHHHEHEH 


TEST FOR ERRORS. 
7SAVE READ STATUS. 
RETURN COMPLETE. 
CHECK ABOLIT RETRYS. 
7FPERFORM RETRY. 
ERROR RETURN. 


> HEHHHRHKKRKRKRKHEKKKKKRHKRKHHHKRKEKHKHHHKHHHHHHKHHHKRHHHHKHHRHHREHKEHEHEH 


TOL 220 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 17 
DISK CONTROLLER MODULE (DCM2) 
WRITE SECTOR DRIVER 


S HHKHERKEKKKEHKERHE EHH HKHEHHKKRHHERHREEHRKERHRKERHEHEHHKRERHREES 
5 WR.SEC SUBROUTINE INTERACTS WITH THE FDOL79X-O2 # 
5 DURING WRITE SECTOR OPERATIONS. THIS SECTION # 
5 INITIATES THE DISK TRANSFER, SERVICES THE CONTROLLER# 
> CHIF, AND TERMINATES THE OFERATION. ERROR DETECTION # 
5 IS IMPLEMENTED. cs 
SHREK HHH HEHKHHEHHEHERHEHKHKEKKRHERHEHRHRHRHHHERHEHESE 


SHHHHHHH( INITIALIZE WRITE OF ERATION ) 8X8 22H HREHRHHEHHERE 


122F AF WR SEC: XRA be 5 ZERO REGISTER. 

1220 32 1330 STA ERR. CT SET ERROR COUNTER. 
1233 3A 1373 LOA CB. SEC ;LOAD SECTOR NMBR. 

1236 AY XRA (i $ INVERT (1771-01). 

1237 eer CLIT WO. SEC SET SECTOR REGISTER. 
1237 Foz1 1246 » oRTRY! LXI Yrs. NMI GET NMI RETURN. 

1230 ZA LS2E LHL ELIF, ST $EBLIFFER START. 

1240 SEAS MV I A, DOC. WR LOAD WRITE SECTOR CMD. 
1242 AY XRA C: INVERT (1771-01). 

1243 [304 CUT WO. CME SISSUE COMMAND. 


HHH ( DATA TRANSFER LOGE ) HHH HKHHHHHHHRHEKRHHHHKHHHHEHEHE 


1245 DESO ..REPT: IN XP. DSH HOLD FOR DATA REQ. 
1247 7E MoV AM GET DATA BYTE. 

1248 Ay XRA é INVERT (1771-01). 

1249 D307 CUT WO. DTA SOUTPLIT DATA BYTE. 

1246 23 INX H 5 INCREMENT BUFF POINTER 
124C 1SF7 MFR « .REFT SREFEAT SEGUECE 


SHHHHHHH( CHECK STATUS JREEEEEHHERHERHHHRERHHRHHHHHHHHHHHHHHH 


124E EéFD ..NMI: ANI LIM. WER TEST FOR WRITE ERRORS. 
1250 32 1377 STA CB. STS SSTORE WRITE STATUS. 
1253 cg RZ RETURN COMPLETE. 

254 co 1279 CALL CHE. RT CHECK ABOUT RETRYS. 
1257 28E0 ARZ . »RTRY PERFORM RETRY. 

1259 cy RET ERROR RETURN. 


> KHHKRKKKRKRRHRKKHHKRKEKHKRKEKHHHHHKKRHHHKHRHHRKRHKRHRKRHKHHHHHHEHREHE 


TOL 220 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 18 
DISK CONTROLLER MODULE (OCM=> 
WRITE TRACK DORIVER 


SEEKER HEHREEEHKERERHHEEHK RHE ERKE RHEE RHEE HHHREHHHHHRE EH 
WR. TRE IS THE SUBROUTINE WHICH INITIATES A FORMAT # 


5 TRACK COMMAND (WRITE-TRACK 177X-O2 TYPE 3). THE # 
5 FORMATTING BYTE STREAM IS PROVIDED BY A PROGRAM + 
5 WHICH MUST BE PRESENT IN THE FORMAT BUFFER. # 


SHHHHHHHHHHHHKHHHHHHHHHHHHHHHHKHKHHHKHKHHRKRHHHRRHHHHRHRHHHRREHE 


FHHHHHHH( INITIALIZE WRITE TRACK 


JHHHHHHKKKHKHHRKRHKKHKHHREH 


125A FO2Z1 1264 WR. TRE: LXI Ys. NMI 7;LOAD NMI VECTOR. 

1L25E 3EFO MVI A» DC. WRT WRITE TRACK CMNL. 

1260 AY XRA C INVERT (1771-01). 

1261 D304 CIT WL. CMLI s;ISSuUE COMMAND. 

12635 Cs 1708 IMP FMT.PS FORMAT PROG START. 
SERRE CHECK COMPLETION STATUS ) HHH HEHHHHREHHERHHEEHHE 

1264 E6E4 »~eNMIS ANI LIM. FER ;TEST FOR ERRORS. 

1268 47 MoV B.A HOLL THIS STATUS. 

1269 DBOO IN BL.STS ;INPUT BOARD STATUS. 

1268 E640 ANI RS. T&L TET TWO SIDED BIT. 

1260 73 Mav AB RESTORE STATUS TO A. 

126౬ 2002 <IRNZ 3 EXLT SNOT ZERO IS ONE SIDED. 

1270 Fé01 ORI Cs. TSU 70R IN TWO SIDED FLAG. 

1272 we LIT «EXIT: STA CB.STS ETRE FORMAT STATUS. 

1275 22 137A SHLD CW.LNG 70ISPLAY TRAIL BYTES. 

1273 CY RET 7RETURN TO USER. 


SHHKKKKKKKKKHKRHKHHKHHHKHHHKHHHHKHHKHKHKKHHHHHKKHKHKRKRKHKHHKHHKHHRHHHHRHEH 


TIL 220 CF/M Disk 
DISSE CONTROLLER MODULE (OCM2) 
RETRY CONTROLLER 


L272 
12785 
1270) 
1250 
1282 


1254 


1286 
125A 
12380 


125 


E650 
2028 
BA 1376 
E680 


2021 


DR40O 


G3 Oo 0) 


hi CD 


2008 


CO 12A6é 
2ZOOF 
CD 1131 


FEOY 


2o07 


ELSE 1336 


CF 
AF 


Cy 


a te 
1 07 


ASSEMBLER VERSION 2,21 


PAGE 1% 


HHHEKKHKHKKRKHKKHKHKKRHKEKRRKKRKEKRHKRKEKHKRHHKKRHKRKKREHEKRHKHKRKKHREHEEKE 


5 CHE.RT IS THE SUBROUTINE USED BY RL.SEC AND జ 
5 WR.SEC TO COUNT RETRY OPERATIONS AND FERFORM A # 
RE-SEERK OPERATION WHEN NEEDED. # 


= ws 


SHHHKKKHKKKHEHKHHHHHHHHKHHHKHHHHKHRKRHKREREKRHHHHHKRKRHHEHRHRHEHRRKEREEE 


SH#HeHHHHEH ( CHECK IF RECOVERABLE )###HHHHHHHHHHRHHHHHHREREHH 


CHE.RT: ANI LIM. CINK TEST NOT READY BIT. 
IRN Z su EXIT CAN NOT RECOVER. 
LOA CB. MOD s;GET COMMAND MODE. 


ANI CM NRT INQ RETRYS CHECK. 
WRNZ wa EXIT SSHOULD NOT RECOVER. 
IN Ar PTX MOTOR TIME EXTEND. 


SHHERHHH( RECORD RETRY )KEKHHKHKHEHHHHKHHHHRHEHHHHRKRHHHEE 


LOA ERR.CT GET ERROR COUNT. 
INR a 5 INCREMENT. 

STA ERR.CT 7S TORE NEW COUNT. 
FI RTY SK SEHUOLLL TRY SEEK? 
JRNZ » CKLS IF NOT, CHECK LAST. 


SEER REPOSITION R/W HEAL ) XK HHHHHHHRHHHHHHHHEHE 
CALL HOME. 0 HOME SELECTED DRIVE. 
ARNZ EXIT SERRUR EXIT. 
CALL SEER EEE DESIRED TRACE. 


SHHHHHHH( HOLD READ GATE FOR 374 REVOLUTION )####eeHEHH 


»-CKLS: CPI RTY.LS ;WAS THIS THE LAST. 
RZ ee SINZ ERROR LAST RETRY. 
LOE TM. PLO 7FHASE LOCK DELAY. 
WAIT 5 FROGRAMMABLE DELAY. 
XRA i 7;CLEAR FOR RETRY. 
RET TRY AGAIN EXIT. 


SHHHHHHH( ERROR EXIT JEEERHHHHHRHHHHHHHHHRHHHHHHHHHHHHH 


e2oINZ? INR - EET NOT ZERO, 
»eEXIT? RET 7;ERROR EXIT. 


7 HHHEHKHKKHKKKHKKKEHKRRKHKKRKHKKRKHHHHHHHKRHHHKKKHHHHHRHHEHKHHHHHEHRH 





TOL Z80 CF/M OTSk- 


DISK 


CONTROLLER MODULE 


RESTORE TRACE O 


12AG 
112A? 
12AB 
12AE 
12BO 
IBS 
12BS 
12B7 
12R8 
12BA 
12RC 
1200 
12C1 


1203 
12:7 
120 
1209 
12CE 
oe 
12CF 


1200 
1202 
1208 
1204 


SA lial 
LA00 

32 1333 
ZEFF 

Co 1054 
E404 
200C 

ge ZL 


pit 4, 
wo! ఇకీ 


LEO 
ELE 10 
CF 

1Se0 


ELSE 10 
Ce 

7? 

Cras, 

AF 
LL77ol 
Co 

SEOs 


32 1377 
a7 


Co 


ASSEMBLER VERSION 2.21 PAGE 2O 


(LCM) 


SHHHHKKHHHHKRERHHKRHHHHHHKHHHHHHRHHHKKRHHKRHHHKRKRHHHRKHHHHKHHHRRES 


5 HOME. 0D IS THE SUBROUTINE THAT STEFS THE DISK DRIVE # 
5 R/W HEAD OUTWARD UNTIL THE TRACK O FLAG BECOMES # 
5 ACTIVE OR 255 STEPS HAVE BEEN ISSUED. # 
SHEHHELHHHEHEHHHHEHHKERHHRHEHHHERHRHHRERHHHHRHEHHHRHHRHHHREREEH 


SERRE RESTORE R/W HEAL ) HHH HHHHHHHHHHHHHHHHHHHHEEE 


HOME. Ls Loe SV. LRV LOAD: ORY NMBR ENABLED. 
CHIT BL.CTL ISSUE CONTROLS. 
STA eV. CTL AND SAVE THESE. 
MVI L»255 SET STEP COUNTER. 

wasters CALL EX.STS STHECK DISK STATUS. 
ANI LIM. TRO INSPECT TRACK O FLUE. 
IRNZ nee ee ed PIF Geis BU wehAll. 
Qik bs : DECREMENT STEP COUNT. 
IRE = -EROR $ERRUR IF 235 STEPS. 
IN AP SIP $ ISSUE, STEP PULSE. 

12 LOED THe Se LOAD STEF DELAY. 

WAIT PROGRAMMABLE DELAY. 
JIMPR Bere AM TRY STEPPING AGAIN. 


SH#HHHHHH( DRIVE IS RESTORED ) HXHHHHHRHHHHHHRHHHKHHHHRHHHHEH 


14 »sEXITS LDED TM. ALS TIME AFTER LAST STEF. 
WAIT 7FPROGRAMMABLE DELAY. 
Mov A» 5GET WO TRE O VALUE. 
QUT WO. TRE 5 ZERL TRACK REGISTER. 
XRA A 7ZERO A REG. SET FLAG, 
MoV DV. TRE (X),A FSET TRACK VALLE, 
RET RETURN TO CALLER. 


SHHHHHHH( TRACK O NOT FOLINED ) HH KHHEHRHRHHHHHHHHHHHHHEKHEE 


»»-EROR: MVI A» Cs. HME SLUAL HOME ERROR FLAG. 
STA CB. STS FS TORE ERROR STATUS. 
ANA A EET RETURN FLAGS, 
RET RETURN TO CALLER. 


> HHHHKHKKHKRKKKKHHHHRKHHEKREHHHHKHHHHRHKHHKHKRKHHKKHHHEHRHHRHREHRHEHHHHRHHEHSE 


TOL 230 CP/M DISK 
DISK CONTROLLER MODULE (LOM) 
LOG-ON DISKETTE 


1207 
120A 
1200 
120F 
IZEO 
12E1 
1ZES 
12E4 
1IZES 


12E7 
12EA 
IZED 


1IZEE 
12FO 
2F3 


11 1S3A 
21 1380 
0608 

1A 

EE 

2008 

13 


1OFS 


SA 1SB1 
DO7 702 


CY 


SEOO 
DO7 702 
CY 
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HHKHKHHKKK KK RKKKHKKHKEKHKHK HEHEHE HEHREREHEHEHEHREHHHEHESH 
LOG CON IS THE SUBROUTINE THAT READS THE IDENTITY # 
SECTOR FROM THE DISKETTE AND MAKES THE NEEDED # 
ENTRYS INTO THE DRIVE TABLE. THE SECTOR DATA Is # 

* 
# 


Js 22 WS 


ws 8B 


ALSO LEFT IN THE SECTOR BUFFER FOR BIGS TO FINISH 
THE LOG-ON OPERATION. 
SHHERHHEHHEHHKEHKKEHHHEKRKEHHKREHKERERRRKERRRHKERHEERHREHEHHE 


4s SB 


SHHEHHHHH( CHECK JADE IDENTITY )##XXHHHRHHHHHHRHHKHRHHHERERRE 


LLG CN: Lit Li, JADE ILI 510 ADDRESS LOADED. 
LXI H,»ITO.LBL SECTOR IO ADDRESS. 

MVI B,I0.SZE 710) LABEL SIZE. 

hI: LOAX Li GET CHARACTER. 


CMF M CHECK AGAINST DISK. 
IRNZ = 2 3740 SIF DIFFERENT: 3740, 
INX Li SCHECE NEXT. 

INX H sCHECK NEXT. 

LINZ » CK ;REFEAT OFERATION. 


SHHEHHHH( LOG-ON JADE FORMAT ) ##XHHRHHHKKRKHHHHHHHHHHHEHE 


LOA ID.FLG sSIDE ANDO DENSITIES. 
Mov DV.FLGCX),A ;STORE IN DRIVE TEL. 
RET RETURN TO CALLER. 


SHHEHHHHH( ASSUME 3740 FORMAT )#HHRHHKHHHKRHHKHHHHHHHHHEE 


ee t/40i MVI A» ILL. FLL 7SIDE AND DENSITIES. 
MOV DOV.FLGCX)A STORE IN DRIVE TEL. 
RET sRETURN TO CALLER. 


5 HHEHKKHKHHKHKKHKHHKKKHRKHHHRKHKHHKHKRKKHHHKHHHHKHHHKHHHKHKHHHHKHHHEKSE 


TOL 220 CF/M DISK ASSEMBLER VERSION 2.21 


PAGE 22 


DISK CONTROLLER MODULE (LIME) 


CHARACTER TRANSMISSION 


12F4 
12F6 
ere 
12FR 
12FE 
12FF 
1300 


1303 
1304 
1307 
1308 


1309 


1308 
1200 
1310 
1311 


“Oo Ch fs 


fo fr fn fet 
tt Ces a Ce 
oll ell fr ee 


131A 
1311 
131F 
1322 
1324 
1327 


e0e, 428S, aoe, 


132? 
1328 
1320 


[LEGO 
E610 

CA 12F4 
SA 1375 
ZF 


CO iziA 
Oo 

OO 

1408 


CBOR 
CO lala 
1s 


C2 1I3OB 


oOo 
A? 
CO 121A 


Co 


DA 1322 


CBYF 

Co Let 
CBF 

La ises 
L200 
Cal 
10FE 

CF 


REHEERERERREEHHEHKE HEHE KEK HH KKH KEK KH HHH HK 4 HK KH KEE 4 EK 
THE FOLLOWING ROUTINE SENDS CONE S&S BIT CHARACTER QUT # 
5 THE EIA LEVEL TRANSMISSION BIT. SET FOR BAUD RATE. # 
SEERA EHHEHHHHHEHHHRHHHHHHEHHHHRHHHEHHHEEHHHRERHEERE 


88 “8 


SHHEHHHH( SET UF FOR TRANSMISSION ) #H#HHHKKRHERHKRHREHRREHEER 


LST.GTs IN BL.STS GET BOARD STATUS. 
ANI BS.EIA TEST LIST READY BIT. 
AZ LST.aT WAIT READY (JZ/JdNZ). 
LIA CEB, CHK GET LIST CHARACTER. 
CMA ;COMPLEMENT ACLUMLILATOR. 
MoV E2A SCHARACTER TO E REG. 
LIA SV.CTL LAST CONTROLS USED. 


SHHHHHHH( SEND THE START BIT JHHHHHHHHHHHHRHRRRREHERERE 


STC ET CARRY EIT. 
CALL BIT.OT sQOUTPUT START BIT. 
NOP FEGUIALIZE TIMING. 
NOP sEQUALIZE TIMING. 


MVI Qos ;NUMBER OF DATA BITS. 
SERRE SEND EACH DATA BIT )####H( SY CYCLE LOUP )### 


= = LATA: RROR E SROTATE E REG RIGHT. 


CALL BRIT.CT 7SENO ONE DATA BIT. 
LICK Li LINE LESS BIT To Ll, 
INZ » «= LATA SREFEAT IF MORE BITS. 


SHHEHHHHEH( SEND STOP BIT J) HHHHHKKHHHHHHHHHHHRHHRHHHHHHRHHEHHEH 


NOP ;EGUALIZE TIMING. 
ANA A sCLEAR CARRY FLAG. 
CALL Bit.OT SEND STOP BIT. 

RET RETURN TO CALLER. 


SHHRHHHHE( SET EIA BIT AND QUTPLIT J)####HC SY CYCLES )#e#e# 


BIT.OTs JC su UNE IF CARRY, SET TO ONE. 
RES 22 A ;ZERUO EIA IN ACUM REG, 
IMF es OUT 730 TO OUTPUT PORT. 


«CINE: SET a2 A GET EIA IN ACLM. 
IMF « «QUT SECGLALIZE TIMING. 


= ILLITE OUT BL CTL SEENL ACLM TO FORT. 


SHHHHHHH( SET DELAY FOR BALIDRATE JEEHEEHERHRRHHHHHHHHHH 


MV I B, BAUD. ;LOAD TIMING CSNT. 
LINZ జ 7DELAY FOR EIT. 
RET RETURN TO LST CALL. 


5 HHHHKRHKRHHHHHKHHKRKKHKKHHKRHRKRHKRHKHKRKHHKHHHHHHHHHHKRHHHHHHHEHE 


TDL 2530 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 23 
DISK CONTROLLER MODULE (DCM) 
CONSTANTS AND VARIABLES 


SHEMHERPHHHHEEHHHREHHKERHHKEERHKEHRHKHEEHHRHKKRHRHHRRHEEHHREE 
5 FROGRAM STORAGE LOACTIONS # 
SEHHEHERHHKREHHEHRHHKEHHRHHHRHHEHHERHRHEHHHRHHHERHHEEHHEEHEHE 


132౬ 130 BLIF. ST: .WORD BUF. EG 3BUFFER STARTING ADDRESS. 
1330 OO ERR. CTS «BYTE QO ;RETRY ERROR COUNTER. 

1331 QQ SV.0ORV: . BYTE QO SBL.CTL DRIVE BITS. 

1332 00 SV.0AS: BYTE O ;BL.CTL DRIVE AND SIDE BITS. 
1333 OO sV.CTL? «BYTE QO 7;BL.JCTL LAST ISSUED. 

1334 OO SV. STi: BYTE QO sFOL7YX-O2 STATUS VALLE. 
135 OO FH. TRE? . BYTE 1 SFHYSICAL TRACK NUMBER. 


SHEEHKHKEHHEHHERKERKEKERKERHEKERHEHRHEREEHEERERHERHERHERE 
5 TIMING VALUES - 0.1 MS INCREMENTS # 
SHHEHKHHEHHKKHHHERHEHKEHHEHRKEHERKEHKRERKEHKERHREHEEHHEREEH 


1336 O4B0 TM.PLOS .WORD 1200 SPHASE LOCK RECOVERY. 

13358 QQ0A TM. SAW: . WORD 10 ;STEP AFTER WRITING. 

0018 ™.s00 == <4 SIDE SELECT DELAY. 
SHHEHEKHEHKEHE HE RHEKKEHRKKEKKEHHEKERRHHRHKEHKEHEEHERHER 
5 DISKETTE IDENTITY LABEL + 
JS EHEHKHKHHKKEEKEHKHHKRKKHHKERKERKEHHRHRHEHKHEHRKERHHERRERHREREES 

133A 4A6164652044 JADEID! ASCII "JADE OO " SDISKETTE ID LABEL. 

Q008 In.SZ2E == (. - JADETO) SIL LABEL SIZE. 

13530 IO.LBL == BUF. BG+OQ000H SIL SECTOR LABEL. 

13A0 ID.BLE == TO.LEL+0020H 710 BLOCK AREA. 

1381 IQ.FLG == [0.BLE+0011H SDISKETTE FLAGS. 

0000 TO.FLO == QO0000000B 73740 FLAGS. 


5 RHEE HEHEHE HH HHH HH HHH HHH HHH 4 4 HH HH 4H HH HH HH HHH 


TOL Zao CR/M OTSk ASSEMBLER VERSION 2.21 


LIke 


FAGE 24 


CONTROLLER MODULE (OCM2) 
DRIVE TABLE 


C) a) a) () 

OOO] 
— OOO? 
OOS 


1342 


1342 
1244 
13484 
1:4౬ 
ta 


OOO 4 


OOO 
1004 


OOS 
COOKE 


QOFFO2C4 
QOLFFOSZCS 
O2FFOLCS4 
OSFFOSC?7 
O4FF OOOO 


S HHHKHKKHKKKHEHKREKRHRHEKEHHHRHHPRHHRKHKRRKHKRKRHHKRHHERKRHEHEKEHEREKEHE 


5 DRIVE TABLE AREA DEFINED ఎ 
S HKHKKRHHHHRHERHREHRERHKHKHHERHHHHHEHHRRHHHHHRHHHHHHHHHHHHHH 


SHHHHHHH( DRIVE TABLE ENTRIES )##RHHHHEHHHHHHHHHHHHREHE 


LV, NER == QO ;CURRENT ORIVE NUMBER. 
LIV, TRE == 1 CURRENT TRACK NUMBER. 
LV, FL == = SIDE ANDO DENSITY FLAGS 
DNYV.CTL == 3 


LAST CONTROLS USED. 
SHHEHHHH( DRIVE TABLE AREA ) #HHHHHHHHHEHHHHHHHHKHEREHHEH 


LV, TEL == “ SLIRIVE TABLE BEGGINING ADDRESS. 
7DRIVE 0. 

SURIVE 1. 

7DRIVE 2. 

SLRIVE 3. 

5 DUMMY. 


LIT.DEO: ,~BYTE Do ars 0F.0FL.0C4H 
[IT.LEl1: BYTE 2 wn OF. OF LL» OCH 
wo Ws OF. OFL» OCGH 
33 2c OF. DFLs OC7H 
452552020 


DT.DED: BYTE 


LIV, LE == [IT.DE1-DT.DEO SEACH DRIVE ENTRY SIZE. 


SHEHEHHHHH( FLAG BIT DEFINITIONS ) RRRHRRHHKHHHHHHHHEHHHHEHEE 


DF.Ti0 == O00000108 STRACK 1 DENSITY (1 = DOUBLE). 
QF.OTO == O00001008 SATA TRACES DENSITY (1 = OD). 
LF. Tar == O00010008 STW SIDED ¢ 1 = TWO SIDES). 
DCF.OFL == LF TIL DEFAULT FLAGS. 


5 HHHHHHHHKHRRHHRKRHHHKRHHHHKHHRHHHHHHHHHHHHKRHHHRHHRHKHHHKHHHHRHHHRHHH 


TLL Za CP/M OTSk 
DISK CONTROLLER MODULE 
[I/O COMMUNICATION BLOCK 


1370 

1370 Og 
1a71 OO 
Lis fe OO 
1372 Og 
1374 Oo 
RE ea OO 
1376 Oo 
1377 OO 
1375 Odd 
1376 OOOO 
OOO 

OOO. 

౧040) 

OOZO 

OOO 

OOO 

౧004 

DOE 

Oo01 
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(LUM!) 


THE FOLLOWING 
THIS AREA Iu 
SYSTEM FOR ALL OTSk 


Je 8S Se WE “38 


DEFINED 
FOR 
ORF ERATIONS. 
AT COMPLETION OF UFERATION Is 


PAGE 25 


HHHHRHRHHHHHHRHRHRRHEHRHRRHHRHRHHHHHHHHHHHHHHHHHHHHHHHHHHHHEH 
AREA IS 
RESERVED 


AS THE COMMAND BLOCK. # 
SPECIFICATION BY THE HOST # 
CONTROLLER STATUS # 


FRESENT IN THIS AREA. # 


FHRHRHKRRKRHRHHRHKRHKRHKRHRRKRHHRHRRKHHKHKRHKRHKRKRHKRHRHRHRHHHRHHKRHREHE 


LOL CMO. BE 


CH.CMDOS «BYTE O 
CH.ORV: BYTE QO 
CE, TRE: . BYTE QO 
CB SEL! .BYTE QO 
CE FFG: «BYTE QO 
CB.CHR: .~BYTE QO 
CE, Mls BYTE 1) 
CB.STS: BYTE QO 


»WORD QO 
» WORD Q 


CW. LADS 
(CW. LNG: 


PHHHHHHH( MODE BIT DEFINITIONS 


SHHHHHHH( STATUS 


CE LINE ==  10000000Eడ 
Co WRF == O10000008 
is BTS ==  DOLOOOOOE 
Ca, RHE == OQOO0100008 
Cas CRE == Oo0001000R8 
CS.LoOE ==  D0000100EదE 
CS.HME == On0000108 
Cis Tal == Ooo00000I1B 


BIT DEFINITIONS 


SCOMMAND BLOCK, 
SCONTROL COMMAND, 
SDORIVE NUMBER. 
SLOGICAL TRACK 
72SEC TOR NUMBER. 
FORMAT FLAGS. 
EIA CHARACTER. 
MOLE SELECTS. 
CONTROLLER STATUS. 


NUMBER. 


7 LOAD 
7 LOAD 


ADDRESS. 
LENGTH 


JHHHHHRHHRHKHHHHHHHHHHHHHH 


INO RETRYS (= 1). 


JHHHHHKKRHHKHHHHKHHHHHHHEHH 


7ORIVE NOT READY, 

WRITE PROTECTED. 

SNOT ASSIGNED, 

RECORD NOT FOUND, © 

SOR ERROR, 

LUST DATA ERROR, 

LIRIVE HOME ERROR. 

STW SIDES FLAG (FORMAT). 


> HHHHHRKRKRKRKRKHHRHRHHHRHRKRHKRHRKRHHHKRRKKRHRHHRHKRHHHHRHHHRRHEHRHKEEH 





TOL ZS0 CP/M DISK ASSEMBLER VERSION 2.21 PAGE 246 
Disk CONTROLLER MODULE (LCM) , 
CCM INITIALIZE 


“PEER HHHREHHHHKEHHEERHERKEHHHEERHHHRHRHRHHHHEHRHRHHREHKHHREREE 
5 THIS SECTION RESIDES IN THE DCM SECTOR BUFFER. THIS 
5 SECTION MOVES DCM FROM BANK 1 DOWN TO BANE 0. THE 
5 € REGISTER IS SET FOR 1771-01 OR 1793-01. THE LAST 
5 QOFERATION IS To READ THE BIOS LOADER SECTOR TU 
5 OVERLAY THIS INITIALIZATION SEGUENCE. BIC LOADER 
; THEN READ BIOS INTO BANE 1 AND HALTS. 

SHHHHEHHHKEHHHHHHEHHHEHHKHHEHHHERHHHHHHHHHHHEHHHERHEHHHHEREH 


x %% KX % xX 


SHHHEHEHHE( EXECLITES IN BANE 1 1) HHHHHHHHHEHHRKRHHHHHHREHREEE 


1350 ae BUF. El FRESIUVES IN BUFFER. 

1350 OL 0400 INIT.B: LXI E, BANE. L EET BANE LENGTH. 

lis i1 1990 Le Li, BANK. O EET DESTINATION. 

Le wl 1400 LXI Hs BANE. 1 EET SOURCE ADDR. 

13S? EDRO LOTR MOVE BLOCK. 

1358 Ca LSSe MP » » DOWN ;4UMF TO NEW IMAGE. 
SH#HEHEHHC NOW IN BANK 0, SET INT MODE )X#HXHHHHHHHHHHEHH 

1SSE 31 1370 =a LILWN: Lt SF's TPSTK SET STACK FNTR. 

1371 EDA Imi SINTERRUPT MODE 1. 
SHHHKRHHEH( SET L7VFLI-OL/ISPS-Ol J HKHHKHHHHRHHRHHRHHHHHHHHHEHEE 

139s OEOQO MYT 20 7;LOAD C REG ZERU, 

137s DROO IN BL. ETS SBOARD STATUS. 

tise? EG ANI BS. WSO 5 TEST USER SW #1. 

Loy? 2008 JRNZ St Be «| Bets SEW OPEN - 1793. 

137౬ OEFF MVI C.OFFH paw Lise =) ise i 


FHHHHHHE( OVERLAY WITH BICS LOADER TRANSIENT )##e##e#e##HH 


LoD) Del 1sSz LO.BLT? LXE XLT. DED 7INIT ORIVE TEL. 
1sAl EOS MYT Ase Eli LOADER SECTOR, 
13A3 ae 1373 mT CE. SEC EET SECTOR VALLE, 
13A4 DR40 IN XP.MTX MOTOR TIME EXTEND, 
1sAS 21 1.380 LXI H» BUF. BG SET RETURN ADDR. 
1:3AB Ez F'LEEH H SFUSH INTO STACK. 
13a is 1204 IMF RO. SEC SET BIOS LOADER. 


SF PHHHHRHHKKEHHKHKHHERHHHREHHHERHHKEHRRHHREEHEHHKEEHRHHHEERHRHHEHE 
«= END 


TOL Ze0O CP/M DTSk 
DIsk CONTROLLER MODULE 
SYMBOL TABLE +++ 


FEE 


RANE. 0 
BAUD. L. 
BC. OSA 
BL. EIA 
BC. F'CH 
Br. SOS 
BS. DUN 
ES. TSU 
RUF. EG 
CE, ORV 
CB.STS 
CM. DTA 
CE CRC 
Cis ANE 
CW. LNG 
Ce. ROA 
QC. WRT 
DP. TSH 
LIM. LOE 
OT. DEO 
QV. TES 
QV. TRE 
FETCH 

HR. INT 
ID. FL 
To. BLE 
LotstsT 
RST 

RST. 4 

RIYLS 
SV CTL 
TICk.€é 
TM.ALS 
TM. SAW 
TRE. IB 
WO. INT 
WR. SEC 
XFPMTO 
$. ADDR 
S.ii157 


i000) 
QOL 
౧00] 
COONS 
OO4O 
౧000 
OOO 
0040 
Lae 0 
137.1 
1377 
1033 
OOO 
0010) 
137A 


QOL? 


QOF OQ 


COCO! 


౧౧04 
1342 
NOO4 
0001 
LO3F 
Rees 
1=2Bl 
1370 
iF 4 
1000) 
1020 


co. om 


OOO 


OoO34 
1044 
122F 
QOO1O 
1067 
OCF 


ASSEMBLER 
(LIM) 


BANE. 1 
Bi. OAS 
EC. OSB 
Bre: INW 
|] Be co Be be 
Bit .Ut 
Ba. EIA 
BS, TST 
BLF ST 
CE. FFG 
CE, TRE 
CH MSE 
io. DNA 
Cs, Tso 
Cie. HLL 
Oe. Ror 
LF. LIFL 
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